00100	ARRAY D1(1603),D2(1869),D3(2055),D4(2253),D5(349),D6(115),D7(39);
00200	VARIABLE /Z,X,Y,/DIS,/SQDIS,/R,
00300	/AA,/BB,/CC,/DD,/EE,/FF,/GG,/HH;
00400	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;REVINIT←1;R←0;
00500	COMPILE;
00600	INSTRUMENT REV;
00700	REV1(R,1601,.802,D1);
00800	REV1(R,1867,.773,D2);
00900	REV1(R,2053,.753,D3);
01000	REV1(R,2251,.733,D4);
01100	REV2(U1+U2+U3+U4,347,.7,D5);
01200	REV2(U5,113,.7,D6);
01300	REV2(U6,37,.7,D7);
01400	R←0;
01500	OUTA←OUTA+U7;
01600	OUTB←OUTB-U7;
01700	OUTC←OUTC+U7;
01800	OUTD←OUTD-U7;
01900	END;
02000	INSTRUMENT RV;
02100	REV2(R,347,.7,D5);
02200	REV2(U1,113,.7,D6);
02300	REV2(U2,37,.7,D7);
02400	REV1(U3,1601,.802,D1);
02500	REV1(U3,1867,.773,D2);
02600	REV1(U3,2053,.753,D3);
02700	REV1(U3,2251,.733,D4);
02800	OUTA←OUTA+U4+U5+U6+U7;
02900	OUTB←OUTB-U4-U5-U6-U7;
03000	OUTC←OUTC-U4+U5-U6+U7;
03100	OUTD←OUTD+U4-U5+U6-U7;
03200	R←0;
03300	END;
03400	INSTRUMENT FM1;
03500	OSCIL(P3,MAG/P2,F2);
03600	INTRP(P6*P5*MAG,P7*P5*MAG,F2);
03700	OSCIL(U2,P5*MAG,F1);
03800	ZOSCIL(U1,P4*MAG+U3,F1);
03900	R←R+P8*U4;
04000	OUTA←OUTA+U4*.25;
04100	OUTB←OUTB+U4*.25;
04200	OUTC←OUTC+U4*.25;
04300	OUTD←OUTD+U4*.25;
04400	END;
04500	INSTRUMENT FM2;
04600	OSCIL(1,P10*MAG,F3);	<DOP FUNCTION;
04700	ZOSCIL(P3,P8*MAG*U1,F8);		<CYCLING ENV;
04800	OSCIL((P7-P6)*MAG*P5*U1,P8*MAG*U1,F8);	<MI CYC. INTERP;
04900	OSCIL((P5*P6*MAG*U1)+U3,U1*P5*MAG,F9);	<MOD. WAVE;
05000	ZOSCIL(U2,(P4*U1*MAG+U4),F9);	<CAR. WAVE;
05100	OSCIL(U5,P10*MAG,F1);	<DIS FUNC;
05200	ZOSCIL(U6,P10*MAG,F4);	<CHAN A;
05300	ZOSCIL(U6,P10*MAG,F5);	<CHAN B;
05400	ZOSCIL(U6,P10*MAG,F6);	<CHAN C;
05500	ZOSCIL(U6,P10*MAG,F7);	<CHAN D;
05600	OUTA←OUTA+U7;
05700	OUTB←OUTB+U8;
05800	OUTC←OUTC+U9;
05900	OUTD←OUTD+U10;
06000	OSCIL(P9*U5,P10*MAG,F2);
06100	R←R+U11;
06200	END;
06300	INSTRUMENT FM3;
06400	OSCIL(1,P10*MAG,F3);	<DOP FUNCTION;
06500	ZOSCIL(P3,P8*MAG*U1,F8);		<CYCLING ENV;
06600	OSCIL((P7-P6)*MAG*P5*U1,P8*MAG*U1,F8);	<MI CYC. INTERP;
06700	OSCIL((P5*P6*MAG*U1)+U3,U1*P5*MAG,F9);	<MOD. WAVE;
06800	ZOSCIL(U2,(P4*U1*MAG+U4),F9);	<CAR. WAVE;
06900	OSCIL(U5,P10*MAG,F1);	<DIS FUNC;
07000	ZOSCIL(U6,P10*MAG,F6);	<CHAN A;
07100	ZOSCIL(U6,P10*MAG,F7);	<CHAN B;
07200	ZOSCIL(U6,P10*MAG,F4);	<CHAN C;
07300	ZOSCIL(U6,P10*MAG,F5);	<CHAN D;
07400	OUTA←OUTA+U7;
07500	OUTB←OUTB+U8;
07600	OUTC←OUTC+U9;
07700	OUTD←OUTD+U10;
07800	OSCIL(P9*U5,P10*MAG,F2);
07900	R←R+U11;
08000	END;
08100	FINISH;